RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE**#1]D**NDXMSG 
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LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 


LLLLLLLLLL 
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ag 
aga 
ag 
aa 
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GG 
GGGGGG 


GGGGGG 
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ve 
= 


TITLE "NDXMSG == Dump en 
ULE NDXMSG (IDENT = "9 


r¥  a8,message 
XBL 1SS32 


+ ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 
BEGIN 


' 
ESSE SETS TITS T TT TTS TTT TTT Tr rere rere rir tii ri titi iii titi iii titi iiiiiiiiict 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND CU, 
:* ONLY IN ACCORDANCE WITH THE TERMS OF 


Sssssssss 


TR 4 3) 


® 
* 
® 
® 
® 
® 
IED * 
SUCH LICENSE AND WITH THE ®* 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
es 
ca 
® 
cs 
® 
® 
5 
® 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

's CORPORATION. 

BILITY FOR THE USE OR RELIABILITY OF ITS 


!* DIGITAL ASSUMES NO RESPONSIBIL 
Ch IS NOT SUPPLIED BY DIGITAL. 


'® SOFTWARE ON EQUIPMENT WHI 
it 
RITeET SIP irri trier rir irri r irri iii iiiitiiiiiiiiiiiiiiiiiiiy) 
i 


I 
h 


OOOCooooooocooooo 


SF UWWWWININInonononononononony 
OL ONAOULSWN —"SOOONOUS WN 


++ 
FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: 
This module contains code to dump an index entry in internal format 


i] 

i 

; 

i 

i 

i 

] 
ENVIRONMENT: Transportable 
AUTHOR : JPK 

CREATION DATE: January 1982 
MODIFIED BY: 
; 
; 
i 
i 
i 
i 
i 
i 
; 
i 
i 


“SOSOOCOCoSoCSooo 


SSSsSesssssssssssssssssssssssss 


RRRRR 


Oo 
= 


005 JPK00015 04-Feb-1983 
Cleaned up module names, modified revision presery to 
conform with established standards. Updated copyright dates. 


(04 JPK00012 24-Jan-1983 

Modified NDXVMSMSG.MSG to define error messages for both 
DSRINDEX and INDEX. 
Added reguice Of NOXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
INDEX, NDXMSG, NDXXTN, NOXTMS, NDXVMS and NDXPAG for BLI$s32. 
Since this file defines the error message Litera s, 
the EXTERNAL REFERENCEs for the error message literals 


S33 


NOUS WN 0 OONOUS WN 


— 
» 


Ssssssss 
SoOooooceco 
DAA 


NDXMSG == Dump entry as message 


1er$ep-198e 1S:07:16 — ERUNOFFeSRESNDAMSG-BL1 71 


: 28 f3 ! have been removed. 

; & 60 1! 003 JPK00010 24-Jan-1983 

. & 61 1! Removed routines GETDAT and UPDDAT from NDXDAT = they 

Ls & 4d 1 performed no useful function. Removed references to these 
; § 0063 1! routines from NDXOUT, NDXFMT, and NDXMSG. 

; rf: 94 : ' Removed reference to XPOOL in NDXOUT = not used. 

; & bose 1! 002 JPK00004 24-Se corr 

; 67 0067 1! Modified NDXOUT, NDXMSG, on and NDXDAT for TOPS=-20. 

>: 68 0068 1! Strings stored in the index pool use the first fullword 

: 8 34 i for their length. References to these strings were incorrect. 
ca 0071 1 i= 


SS 
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| 
Ww 


~ 
ONAOVULSWN—"OOONOUS 


89 


95 
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1 
1 
1 
1 
1 
1 
1 
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i] 

TABLE OF CONTENTS: 

FORWARD ROUTINE 
ENTMSG : NOVALUE, ' Dump current entry 
DMPENT : NOVALUE; ! Dump entry 


| INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; 
REQUIRE "REQ:NDXPOL'; 
RIF ZBLISS (BLISS32) 

XZ THEN 


REQUIRE 'REQ:NDXVMSREQ'; 
RFI 


EQUATED SYMBOLS: 


+ 
' 
. 
| 
. 
' 
. 
‘ 
. 
q 
. 
' 
° 
' 
. 
] 
. 
' 
. 


OWN STORAGE: 
EXTERNAL REFERENCES: 
XTERNAL LITERAL 
RINTES : UNSIGNED (8), ' RUNOFF escape sequence character 
MAXLST; ! Maximum subindex depth 
EXTERNAL 
LSTPTR : REF $XE_BLOCK, ! Pointer to current entry 


INDLVL, ' Current subindex level 
LSTSTK : VECTOR; ! Entry stack 


Page 


3 
(2) 


SS 


"10 


SG == Dump entry oy message 1 ~ge07 1386 04:03:67 AX-11 BLi 


SG = Dump current 


4 ss 


DOWONA NE WN SO ODNOMNE WN 0 OONOUE WN SO ODNOUES WN OUOONIOM 


Wr 


ee ee ee ed ed dd sd ds 8 od = 8 a a = = 


POPPA AAAI IPIPIPIANIMNINININININ II a at at at st st st st tk kt kk kk tk kt dt td 


dex entry 14-Sep-1 
ZSBTTL ‘ENTMSG = Dump current index entry' 
GLOBAL ROUTINE ENTMSG : NOVALUE = 

FUNCTIONAL DESCRIPTION: 


This routine builds a string which represents the current index 
entry from the index stack. The string is dumped via DMPENT. 


FORMAL PARAMETERS: 
None 
IMPLICIT INPUTS: 
LSTPTR = Pointer to current entry 
INDLVL = Subindex level 
LSTSTK = Index entry stack 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 


COMPLETION CODES: 
None 
SIDE EFFECTS: 


INE : VECTOR CCHSALLOCATION (1200)], 


Build a string containing the whole entry 


LEN = 0; 
PTR = CHSPTR (LINE); 
LSTSTK C.INDLVL] = .LSTPTR; ! Save pointer to current entry 
INCR I FROM 0 TO .INDLVL DO 
BEGIN 


LOCAL 
XEPTR : REF $XE BLOCK, 
FROM_VEC : REF VECTOR, 

FROM~LEN, 

FROM_PTR; 


1 
Point to entry 


SS 


RUNOFF .SR 


N 10 

xm NDXMSG == Dump entry as message 16-Sep AX-11 Bliss-32 V4.0-74 e 5 
voor ENTMSG = Dump current index entry 12: -Sep- o7138e 9}: ae RUNOFF ..SRCJNDXMSG.BLI; mes (3) v0 
: 17 ¥EPTR = .LSTSTK C.1) : 
ih | 
3 123 f i Point to text : 
: 177 67 FROM_VEC = .XEPTR CXESA_TEXT); : 
; 138 674 
: 196 of? i Get the length. It's stored as the first fullword of the string : 
: 18 eas FROM_LEN = .FROM_VEC [0]; 
3 18 678 FROM-PTR = CHSPTR (FROM_VEC (11); 
: 184 67 
3 133 680 
198 Append to Line 
; 188 6 CHSMOVE {FROM LEN FROM AALe .PTR); 
3 189 684 PTR = st PTR. OM_LEN); 
3 139 06 5 LEN = ni? y .F tens 
: 198 06 3 IF .1 NEQ .INDLVL 
:; #19 688 THEN 
: 194 06 9 4 BEGIN 
: 13 Seo Append subind 
; n n 
: 197 069 4 ppe su ex escape sequence 
; 198 693 4 CHSMCHAR A (RINTES, PTR); 
3 199 694 4 CHSWCHAR-A (2C'J', PTR); 
; 200 0695 4 CHSUCHAR™ “A (0, PTR); 
: 201 0696 4 LEN = .LEN + 8; 
3 Og 0697 3 3 
: 20 0698 END; 
: 204 0699 
: 4 oe LSTSTK C.INDLVL) = 0; ! Clean stack 
: 207 0702 DMPENT (.LEN, CHS$PTR (LINE)); ! Dump entry 
; 208 0703 1 END; 


TITLE Nt NDXMSG -- Dump entry as message 
- IDENT 

eEXTRN DSRINDEXS BAP OSTE 
-EXTRN DSRINDEX$~BADVALUE 
tts DSRINDEX “TNSVIRMEM 
eEXTRN DSRINDEXS_LINELENG 
-EXTRN DSRINDEXS_NOREF 
-EXTRN DSRINDEXS$_OPENIN 
e-EXTRN DSRINDEXS_OPENOUT 
eEXTRN Hype te a nee 
-EXTRN DSRINDEXS_VALERR 
-EXTRN DSRINDEX$_CANTBAL 
eEXTRN try teed _CLOSEQUOT 
eEXTRN DSRINDEXS_CONF QUAL 
-EXTRN DSRINDEXS_CTRLCHAR 
eEXTRN DSRINDEXS_DOESNTF IT 
eEXTRN DSRINDEX$_DUPBEGIN 
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NIRSG - Dump current index entry 1gSe0-198e P3i87:%, — ERUNOF FSR IND 
7 GLOBAL ROUTINE DMPENT (LEN, STR_PTR) : NOVALUE = 
i FUNCTIONAL DESCRIPTION: 
DMPENT untranslates text and dumps it 
i FORMAL PARAMETERS: 
1 LEN - is the number of bytes to be scanned. 
! i STR_PTR = is a CHSPTR to the index entry 
! ! IMPLICIT INPUTS: 
: ; NONE 
{ IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


! 
7 
1 
! 
1 
! 
1 
' 
' 
1 
1 
t 
1 
; 
| 
! 
! 
f 
NONE 
SIDE EFFECTS: 
NONE 

! 
BEGIN 
LOCAL 


LP, 
RL INE : VECTOR CCHSALLOCATION (1200)], ! Build up the dump Line here. 


EAA AA AP IPIPOPIPONIMPOPINPIPIPIPPIPINIPN IAI) a dt st tt at tt tn tt a tt 
- . . 


IF .LEN EQL 0 THEN RETURN; ! Split if no text to display 
XLP = CHSPTR (XLINE); ! Point to Line buffer 
ms COUNT = 0; ! Initialize length counter 
74 } 
749 Scan the text, untranslating escape codes, etc back to RUNOFF flags. 
ay PTR = -STR_PTR; ! Copy pointer to what's to be ‘‘unparsed”’ 
Fg INCR I FROM 1 TO .LEN DO 
Pee BEGIN 
ee LOCAL 
i KHAR; 
7 § KHAR = CHSRCHAR_A (PTR); 
760 
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COUNT, ' Number of characters in output stream 


i A CHSPTR to the next character Location in XLINE. 
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Dd 11 
SG -- Dump entry as message 16-Sep-1984 03:47 
SG - Dump current index entry 17-868 38 94:8 :14 


IF_.KHAR EQL RINTES 
THE 
BEGIN 
| Untranslate special function 


ee fd 


CAL 
FUNCTION_CODE, 
OPERAND; 


NCTION_CODE = CHSRCHAR_A (PTR); 
ERAND —" RCHAR_A (PTR); 
= . 


OOOOCOOOOCOOOCOOOOCOCO mz 


ee 


concn | i «FUNCTION CODE OF 


CzC°B") : 
Bolded character. 
CHSWCHAR_A (ZC'®', XLP); 
Cac") : 
Underlined character. 
CHSWCHAR_A (XC'S", XLP); 


Czc*o') : 
BEGIN 


i An overstruck character. 


090909 09 09 09 0909 08 SI NIN SINS INNO Oo —x< 


SSNs 
0000000 


~ 
Oo 
io 


CHSWCHAR_A (.OPERAND, XLP); 
CHSWCHAR-A (ZC'%', XLP); 
COUNT = TCOUNT + {; 


co 
oS 
So 


CzC°J") : 


OOOO CGOOOCOCOOOOSOOOCOSCOOCOOOOoOoOoOO 


starts a new sub-indexing level. 
CHSWCHAR_A (ZC'>", XLP); 
CxC*P"') g 
No permute flag 
CHSWCHAR_A (ZC°™", XLP); 


CZC'N') : 
IF .OPERAND EQL %C‘-' 
THEN 


SOOoOooOoooO 


NOUS WO OONOU ES Ww — 


Pee ee ee ee ee te oe oP ee oe yeaa ala gl at ot oP ot ot ot ot ot ot ot ot oe ot oe oe oe ee ee ee ee eee 


0.09 09 00 Go 09 0 Cd Oo Od 00 C9 00 09 0D OD CO 


a ts tt at 


AX=11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXMSG.BLI; 


NOTE: Order is the reverse of what user specified. 


i A word mark. For indexing commands, this 


04-000 


WN“ OOONAVEWN OO WNAOUES WR OVDONAUE WN —O0OONOUS 
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DUO e 


NO 
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cccce 
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NDXMSG == Dump entry as message 16-5e =1984 01:03:47 AX-11 Bliss-32 V4.0-74 Pa 9 
ENTMSG = Dump current todos entry 1 ~300n 138% 93:8 :14 RUNOFF .SRCJNDXMSG.BLI; a (4) 
} 2 sige CA (4C*=", XLP) ! Hyphenate flag 
¢ CHSWCHAR_A (2C'?", XLP); ! Unknown sequence 
§ ? COTHERWISEJ : 
3 ¢ ? Unknown/unsupported special function 
4 CHSWCHAR_A (%C'?", XLP); 
68 3 4 TES; ‘ 
8 8 4 
$ END 
Q ELSE 
0831 4 BEGIN 
08 ¢ 4 ! 
8B Z 2 Some normal character 
OB 5 4 i Normal characters go out as themselves. Control characters 
oae9 4 ! are translated to something else. 
0837 4 ! 
0838 4 
0839 5 IF (.KHAR GEQ %C* *) AND (.KHAR LEQ %0'176') 
0840 4 THEN 
as estou weraal,cheree 
. a 
SK : : utput a normal character 
0844 4 CHSWCHAR_A (.KHAR, XLP) 
obee : BEGIN 
B49 : ! 
0848 ! Translate and output a control character. 
th 5 NOTE: DEL (Octal 177) and NUL (Octal 0) have the same result. 
0851 : CHSWCHAR_A (XC'*", XLP); 
O85¢ 5 CHSWCHAR-A (.KHAR + %C°@', XLP); 
0853 5 COUNT = .COUNT + 1; 
0854 4 END; 
0855 4 
ba29 END; 
085 
0858 COUNT = .COUNT + 1; 
859 END; 
Bet ; 
bbe Now tell user what entry was 
ZIF ZBLISS (BLISS32) 
5 THEN ! Signal messages in BLISS32 
86 SIGNAL (INDEXS_TEXTD, 2, .COUNT, CHSPTR (XLINE)); 
e3 ZELSE ! Use $XPO_PUT_MSG otherwise 
71 $XPO_PUT_MSG (SEVERITY = WARNING, 
gf STRING = SSTR_CONCAT (‘entry text: ''*, (.COUNT, CHSPTR (XLINE)), °'*")); 
74 2FI 


p+ 
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NDXM NDXMSG == Dump entry as message 16-Sep-1984 01:03:47 AX-11 Bliss-32 V4.0-74 Page 1 
YOu 000 ENTMSG = Dump current Indon entry 18-808-1 382 94:08, ERUNOFF SRE NDXMSG.BLI; ’ (G ve 
; 38) O87? s 
: 2 76 END; !End of DMPENT : 
007C 000 eENTRY DMPENT, Save R2,R3,R4,R5,R6 3; 0704 : 
5E FBS5O0 «CE C9 O09 MOV OT obOCEP). SP $ 3 
OF 33 db004 prea — 
o% 9 C RET : : 
50 HE F D 1$: MOVAB XLINE, XLP + 0745 : 
56 08 Ac 010 MOVL STR_PTR, PTR + 0751 ; 
54 7C 00014 CLROQ COURT ; 746 : 
0098 31 9 16 BRW 1 : 075 : 
52 86 A 19 28: MOVZBL (PTR)+, KHAR : 0759 3 
000000006 &F 32 D4} o078 cMPL KHAR, #RINTES + 0761 : 
51 86 9A 000 MOVZBL (PTR)+, FUNCTION_CODE : 0772 3 
53 58 9A 00028 MOVZBL (PTR)+, OPERAND : 077 F 
55 9 CO 00028 ADDL #2, 1 : 0774 : 
00000042 =F 1 01 000 ; CMPL FUNCTION_CODE, #66 : 0779 ; 
05 ie 00 BNEQ : 3 
60 gh 90 00037 MOVB #42, (XLP) : 0783 : 
4 11 OOO3A BRB : : 
00000055 = &F 51 D1 900 3$: CMPL FUNCTION_CODE, #85 ; 0785 ; 
05 2 004 BNEQ : : 
60 26 90 0004 MOVB #38, (XLP) ; 0789 : 
66 11 00048 BRB : : 
0000004F aF 51 D1 OO04A 4$: CMPL FUNCTION_CODE, #79 : 0791 : 
OA 1 90031 BNEQ $ : : 
0 3 90 00053 MOVB OPERAND » (XLP)+ : 0797 3 
0 9 sit) MOVB #37, (XLP)+ : 0798 § 
4 06 4 9 INCL UN 3; 0799 5 
5 11 00058 BRB 12$ : 0776 3 
0000004A =F 1 01 0005D 5$: CMPL FUNCTION_CODE, #74 3 0802 : 
N ; 3 
60 ; 9 ve BOE #62, (XLP) 0807 ; 
is 11 0006 BRB : 3 
00000050 = &F 31 pI $8 6$: cHPL FUNCTION_CODE, #80 ; 0809 
60 7E i # i} MOVE #126, (XLP) ; 0813 
0000004E 8F 1 p| 7A 7$: CPL FUNCTION_CODE, #78 ; 0815 
2D 33 of CPL PERAND, #45 : 0816 
60 B $5 MOVB #61, (XLP) ; 0818 
11 BRB ; 0820 
60 F 90 8$ MOVB #63, (XLP) 3 
E 1 BRB : 0818 
20 pt 3 9$ CHPL KHAR, #32 ; 0839 
0000007E 8F p} 9 CMPL KHAR, #126 : 
4 4 BGTR ; 
60 90 A MOVB  KHAR, (XLP) > 0844 
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ENTMSG = Dump current index entry -Sep-1 RUNOFF .SRCJNDXMSG.BLI; (4) 
B 11 A BRB 11$ : 
89 if F 2 Ons 10$ MOVB #94, (XLP)+ g $21 
60 4 F BA ADDB3 #64. KHAR, (XLP) 3 26 
4 0D A INCL UNT 3; 085 
tbe 00082 138; INGE ne : Oa 
FFSE 55 01 0 AC F B 18 ACBL LEN. of , 2s ; $28 
4010 8F 6B 000BB PUSHR #°M<R4, "tp P> + 0867 
2 DD O00BF PUSHL #2 é 
000000006 F DD Spc PUSHL ersniees? TEXTD 3 
000000006 00 4 FB C7 CALLS » LIBSSIGNAL é 
04 OO0CE RET 3; 0876 
; Routine Size: 207 bytes, Routine Base: $CODES + OOSF 
s 383 0877 1 
> «384 0878 1 END ! End of module 
; 4385 0879 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
; SCODES 302 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Tete: | ea eae eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBIXPORT.L32;1 590 29 4 252 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INiTIAL,OPTIMIZE)/LIS=LIS$:NDXMSG/OBJ=OBJ$:NDXMSG MSRC$:NDXMSG/UPDATE=(ENHS:NDXMSG) 


; Size: 302 3 0 data bytes 
Bun ine ae 
ties 


; Lexemes/CPU-Min: 
; Memory Used: 122 pages 


SoBe Sete tee 
a. 
— 
=] 
ea 
ve 
=o 
et 
=3 
23 
= 


VvO4~000 


; Compilation Complete 
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VAX-11 Bliss-32 V4.0-742 
ENTMSG = Dump current 


Sz 


a; ee eee ne neem eee Ke SSS 


344 AH -BT13A- SE ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY. 


